home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / bbslist2.zip / BBSLIST2.RAR / install.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-05  |  3KB  |  80 lines
  1. /*
  2. @Goto NoRexxFound
  3. */
  4.  
  5. /* Code */
  6. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  7. call SysLoadFuncs
  8.  
  9. Say 'Installig BBSList-Beta folder on Desktop'
  10. Say 'Please, wait...'
  11.  
  12. BBSLISTPATH = DIRECTORY()
  13.  
  14. Title = "BBSList-Beta OS/2"
  15. SetupString = "OBJECTID=<BBS_LST2>;BACKGROUND="BBSLISTPATH"\BBSLIST2.BMP"
  16. if SysCreateObject("WPFolder",Title,"<WP_DESKTOP>",SetupString,"R") <> 1 then Signal ErrorLabel;
  17.  
  18. Title = "BBS filelist(s)"
  19. SetupString = "OBJECTID=<BBSLISTFILE>;BACKGROUND="BBSLISTPATH"\BBSLIST2.BMP"
  20. if SysCreateObject("WPFolder",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  21.  
  22. Title = "Reference"
  23. SetupString = "ICONFILE="BBSLISTPATH"\REFER.ICO;EXENAME=E.EXE;PARAMETERS="BBSLISTPATH"\bbslist.ru"
  24. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  25.  
  26. Title = "Read Me"
  27. SetupString = "ICONFILE="BBSLISTPATH"\REFER.ICO;EXENAME=E.EXE;PARAMETERS="BBSLISTPATH"\read.me"
  28. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  29.  
  30. Title = "History"
  31. SetupString = "ICONFILE="BBSLISTPATH"\HISTORY.ICO;EXENAME=E.EXE;PARAMETERS="BBSLISTPATH"\history.doc"
  32. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  33.  
  34. Title = "Register form"
  35. SetupString = "ICONFILE="BBSLISTPATH"\EDIT.ICO;EXENAME=E.EXE;PARAMETERS="BBSLISTPATH"\ORDERFRM.RU"
  36. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  37.  
  38. Title = "Edit config file"
  39. SetupString = "ICONFILE="BBSLISTPATH"\EDIT.ICO;EXENAME=E.EXE;PARAMETERS="BBSLISTPATH"\bbslist.ini"
  40. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  41.  
  42. Title = "Edit Magic Word"
  43. SetupString = "ICONFILE="BBSLISTPATH"\EDIT.ICO;EXENAME=E.EXE;PARAMETERS="BBSLISTPATH"\BBSLIST.MGW"
  44. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  45.  
  46. Title = "Menu select"
  47. SetupString = "EXENAME="BBSLISTPATH"\BBSLIST2.EXE;STARTUPDIR="BBSLISTPATH";ASSOCFILTER=*.LST,*.ALL,*.BBS"
  48. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  49.  
  50. Title = "View BBS filelist"
  51. SetupString = "EXENAME="BBSLISTPATH"\BBSLIST2.EXE;STARTUPDIR="BBSLISTPATH";PARAMETERS=-V"
  52. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  53.  
  54. Title = "Scan requested file(s)"
  55. SetupString = "ICONFILE="BBSLISTPATH"\FIND.ICO;EXENAME="BBSLISTPATH"\BBSLIST2.EXE;PARAMETERS=-F"
  56. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  57.  
  58. Title = "Install"
  59. SetupString = "ICONFILE="BBSLISTPATH"\INSTALL.ICO;EXENAME=INSTALL.CMD"
  60. if SysCreateObject("WPProgram",Title,"<BBS_LST2>",SetupString,"R") <> 1 then Signal ErrorLabel;
  61.  
  62. Say 'BBSList-Beta Object installed on Desktop'
  63.  
  64. if SysFileDelete("install2.cmd") = 0 then 'e.exe BBSList.Ru'
  65.  
  66. Exit;
  67.  
  68. ErrorLabel:
  69.     Say 'BBSList-Beta couldn''t install object on the Desktop'
  70. Exit;
  71.  
  72. :NoRexxFound
  73. @Echo Off
  74. If Exist install2.cmd Del install2.cmd
  75. Echo No REXX support found in your system.
  76. Echo Run "Selective Install" in System folder
  77. Echo to install REXX in your system.
  78. Pause
  79. :exit
  80.